 Imports MySql.Data.MySqlClient 
 Imports System.Data.OleDb
Imports System.Data.SqlClient
 Imports System .Data .SqlServerCe 
 Imports System.Data.OracleClient 
Imports System.Data
Imports DTO
Public Class DIEMDao
Inherits AbstractDao
 #Region "New" 
 Public Sub New(ByVal connection As KetNoiDto)
 MyBase.New(connection)
 End Sub
 Public Sub New( ByVal IDDIEM As System.Int32, ByVal connection As KetNoiDto)
 MyBase.New("DIEM", "select * from DIEM where IDDIEM=" & IDDIEM & "", connection)
 End Sub
 #End Region 
 Public Sub Them(ByVal Dto As DIEMDto)
 Dim strsql As String
 strsql = "Insert into DIEM(IDMON,IDHOCSINH,TONGDIEM,TRANGTHAI,GHICHU) values (?,?,?,?,?)
 Moketnoi()
 select case ketnoi.MSsql 
 Case Class_KieuDL.Access
 Dim cmd As New OleDbCommand(strsql, Ket_noi_access)
cmd.Parameters.Add("@IDMON", OleDbType.Integer)
cmd.Parameters.Add("@IDHOCSINH", OleDbType.Integer)
cmd.Parameters.Add("@TONGDIEM", OleDbType.Integer)
cmd.Parameters.Add("@TRANGTHAI", OleDbType.Integer)
cmd.Parameters.Add("@GHICHU", OleDbType.Integer)
cmd.Parameters("@IDMON").Value = Dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = Dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = Dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = Dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = Dto.GHICHU
 cmd.ExecuteNonQuery()
 strsql = "Select @@IDENTITY"
 cmd = New OleDbCommand(strsql, Ket_noi_access)
 Dto.IDDIEM = cmd.ExecuteScalar()
 Case Class_KieuDL.Sql,Class_KieuDL.sqlExpress
 strsql = "Insert into DIEM(IDMON,IDHOCSINH,TONGDIEM,TRANGTHAI,GHICHU) values (@IDMON,@IDHOCSINH,@TONGDIEM,@TRANGTHAI,@GHICHU)
 Dim cmd As New sqlCommand(strsql, Ket_noi_sql)
cmd.Parameters.Add("@IDMON", SqlDbType.Int)
cmd.Parameters.Add("@IDHOCSINH", SqlDbType.Int)
cmd.Parameters.Add("@TONGDIEM", SqlDbType.Int)
cmd.Parameters.Add("@TRANGTHAI", SqlDbType.Int)
cmd.Parameters.Add("@GHICHU", SqlDbType.Int)
cmd.Parameters("@IDMON").Value = Dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = Dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = Dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = Dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = Dto.GHICHU
 cmd.ExecuteNonQuery()
 strsql = "Select @@IDENTITY"
 cmd = New sqlCommand(strsql, Ket_noi_sql)
 Dto.IDDIEM = cmd.ExecuteScalar()
 Case Class_KieuDL.SqlCe
 strsql = "Insert into DIEM(IDMON,IDHOCSINH,TONGDIEM,TRANGTHAI,GHICHU) values (@IDMON,@IDHOCSINH,@TONGDIEM,@TRANGTHAI,@GHICHU)
 Dim cmd As New sqlceCommand(strsql, Ket_noi_SqlCe)
cmd.Parameters("@IDMON").Value = Dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = Dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = Dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = Dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = Dto.GHICHU
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Oracle
 strsql = "Insert into DIEM(IDMON,IDHOCSINH,TONGDIEM,TRANGTHAI,GHICHU) values (@IDMON,@IDHOCSINH,@TONGDIEM,@TRANGTHAI,@GHICHU)
 Dim cmd As New OracleCommand(strsql, Ket_noi_Oracle)
cmd.Parameters("@IDMON").Value = Dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = Dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = Dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = Dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = Dto.GHICHU
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Mysql
 strsql = "Insert into DIEM(IDMON,IDHOCSINH,TONGDIEM,TRANGTHAI,GHICHU) values (@IDMON,@IDHOCSINH,@TONGDIEM,@TRANGTHAI,@GHICHU)
 Dim cmd As New MySqlCommand(strsql, Ket_noi_MySql)
cmd.Parameters.Add("@IDMON", MySqlDbType.Int32)
cmd.Parameters.Add("@IDHOCSINH", MySqlDbType.Int32)
cmd.Parameters.Add("@TONGDIEM", MySqlDbType.Int32)
cmd.Parameters.Add("@TRANGTHAI", MySqlDbType.Int32)
cmd.Parameters.Add("@GHICHU", MySqlDbType.Int32)
cmd.Parameters("@IDMON").Value = Dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = Dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = Dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = Dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = Dto.GHICHU
 cmd.ExecuteNonQuery()
 End Select
 Ngatketnoi()
 End Sub
 Public Sub Xoa( ByVal IDDIEM As System.Int32 )
 Dim strSQL As String
 Moketnoi()
 select case ketnoi.MSsql 
 Case Class_KieuDL.Access
strSQL = "Delete From DIEM Where IDDIEM= ? 
Dim cmd As New OleDbCommand(strSQL, Ket_noi_access)
cmd.Parameters.Add("@IDDIEM",OleDbType.Integer).Value = IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Sql,Class_KieuDL.sqlExpress 
strSQL = "Delete From DIEM Where IDDIEM= @IDDIEM
Dim cmd As New sqlCommand(strSQL, Ket_noi_sql)
cmd.Parameters.Add("@IDDIEM",SqlDbType.Int).value=IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.SqlCe
strSQL = "Delete From DIEM Where IDDIEM=" & IDDIEM & "
 Dim cmd As New SqlCeCommand(strSQL, Ket_noi_SqlCe)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Oracle
strSQL = "Delete From DIEM Where IDDIEM=" & IDDIEM & "
 Dim cmd As New OracleCommand(strSQL, Ket_noi_Oracle)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.MySql
strSQL = "Delete From DIEM Where IDDIEM=" & IDDIEM & "
 Dim cmd As New MySqlCommand(strSQL, Ket_noi_MySql)
 cmd.ExecuteNonQuery()
 End Select
 Ngatketnoi()
 End Sub
 Public Sub sua(ByVal dto As DIEMDto)
 Dim strSQL As String
 Moketnoi()
 select case ketnoi.MSsql 
 Case Class_KieuDL.Access
 strSQL = "Update DIEM Set IDMON=? ,IDHOCSINH=? ,TONGDIEM=? ,TRANGTHAI=? ,GHICHU= ? where IDDIEM= ? "
 Dim cmd As New OleDbCommand(strSQL, Ket_noi_access)
cmd.Parameters.Add("@IDMON", OleDbType.Integer)
cmd.Parameters.Add("@IDHOCSINH", OleDbType.Integer)
cmd.Parameters.Add("@TONGDIEM", OleDbType.Integer)
cmd.Parameters.Add("@TRANGTHAI", OleDbType.Integer)
cmd.Parameters.Add("@GHICHU", OleDbType.Integer)
cmd.Parameters.Add("@IDDIEM", OleDbType.Integer)
cmd.Parameters("@IDMON").Value = dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = dto.GHICHU
cmd.Parameters("@IDDIEM").Value = dto.IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Sql,Class_KieuDL.sqlExpress 
 strSQL = "Update DIEM Set IDMON= @IDMON , IDHOCSINH= @IDHOCSINH , TONGDIEM= @TONGDIEM , TRANGTHAI= @TRANGTHAI , GHICHU= @GHICHU where IDDIEM= @IDDIEM"
 Dim cmd As New sqlCommand(strSQL, Ket_noi_sql)
cmd.Parameters.Add("@IDMON", SqlDbType.Int)
cmd.Parameters.Add("@IDHOCSINH", SqlDbType.Int)
cmd.Parameters.Add("@TONGDIEM", SqlDbType.Int)
cmd.Parameters.Add("@TRANGTHAI", SqlDbType.Int)
cmd.Parameters.Add("@GHICHU", SqlDbType.Int)
cmd.Parameters.Add("@IDDIEM", SqlDbType.Int)
cmd.Parameters("@IDMON").Value = dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = dto.GHICHU
cmd.Parameters("@IDDIEM").Value = dto.IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.SqlCe
 strSQL = "Update DIEM Set IDMON= @IDMON , IDHOCSINH= @IDHOCSINH , TONGDIEM= @TONGDIEM , TRANGTHAI= @TRANGTHAI , GHICHU= @GHICHU where IDDIEM= @IDDIEM"
 Dim cmd As New SqlCeCommand(strSQL, Ket_noi_SqlCe)
cmd.Parameters("@IDMON").Value = dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = dto.GHICHU
cmd.Parameters("@IDDIEM").Value = dto.IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Oracle
 strSQL = "Update DIEM Set IDMON= @IDMON , IDHOCSINH= @IDHOCSINH , TONGDIEM= @TONGDIEM , TRANGTHAI= @TRANGTHAI , GHICHU= @GHICHU where IDDIEM= @IDDIEM"
 Dim cmd As New OracleCommand(strSQL, Ket_noi_Oracle)
cmd.Parameters("@IDMON").Value = dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = dto.GHICHU
cmd.Parameters("@IDDIEM").Value = dto.IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.MySql
 strSQL = "Update DIEM Set IDMON= @IDMON , IDHOCSINH= @IDHOCSINH , TONGDIEM= @TONGDIEM , TRANGTHAI= @TRANGTHAI , GHICHU= @GHICHU where IDDIEM= @IDDIEM"
 Dim cmd As New MySqlCommand(strSQL, Ket_noi_MySql)
cmd.Parameters.Add("@IDMON", MySqlDbType.Int32)
cmd.Parameters.Add("@IDHOCSINH", MySqlDbType.Int32)
cmd.Parameters.Add("@TONGDIEM", MySqlDbType.Int32)
cmd.Parameters.Add("@TRANGTHAI", MySqlDbType.Int32)
cmd.Parameters.Add("@GHICHU", MySqlDbType.Int32)
cmd.Parameters.Add("@IDDIEM", MySqlDbType.Int32)
cmd.Parameters("@IDMON").Value = dto.IDMON
cmd.Parameters("@IDHOCSINH").Value = dto.IDHOCSINH
cmd.Parameters("@TONGDIEM").Value = dto.TONGDIEM
cmd.Parameters("@TRANGTHAI").Value = dto.TRANGTHAI
cmd.Parameters("@GHICHU").Value = dto.GHICHU
cmd.Parameters("@IDDIEM").Value = dto.IDDIEM
 cmd.ExecuteNonQuery()
 End Select
 Ngatketnoi()
 End Sub
 Public Sub SuaIDMON( ByVal IDMON as System.Int32, ByVal IDDIEM As System.Int32 )
 Dim strSQL As String
 Moketnoi()
 select case ketnoi.MSsql 
 Case Class_KieuDL.Access
 strSQL = "Update DIEM Set IDMON = ?  where IDDIEM= ? "
 Dim cmd As New OleDbCommand(strSQL, Ket_noi_access)
 cmd.Parameters.Add("@IDMON", OleDbType.Integer)
 cmd.Parameters.Add("@IDDIEM", OleDbType.Integer)
 cmd.Parameters("@IDMON").Value =  IDMON
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Sql,Class_KieuDL.sqlExpress 
 strSQL = "Update DIEM Set IDMON = @IDMON  where IDDIEM= @IDDIEM"
 Dim cmd As New sqlCommand(strSQL, Ket_noi_sql)
 cmd.Parameters.Add("@IDMON", SqlDbType.Int)
 cmd.Parameters.Add("@IDDIEM", SqlDbType.Int)
 cmd.Parameters("@IDMON").Value =  IDMON
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.SqlCe
 strSQL = "Update DIEM Set IDMON =" & IDMON & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New SqlCeCommand(strSQL, Ket_noi_SqlCe)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Oracle
 strSQL = "Update DIEM Set IDMON =" & IDMON & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New OracleCommand(strSQL, Ket_noi_Oracle)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.MySql
 strSQL = "Update DIEM Set IDMON =" & IDMON & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New MySqlCommand(strSQL, Ket_noi_MySql)
 cmd.ExecuteNonQuery()
 End Select 
 Ngatketnoi()
 End Sub
 Public Sub SuaIDHOCSINH( ByVal IDHOCSINH as System.Int32, ByVal IDDIEM As System.Int32 )
 Dim strSQL As String
 Moketnoi()
 select case ketnoi.MSsql 
 Case Class_KieuDL.Access
 strSQL = "Update DIEM Set IDHOCSINH = ?  where IDDIEM= ? "
 Dim cmd As New OleDbCommand(strSQL, Ket_noi_access)
 cmd.Parameters.Add("@IDHOCSINH", OleDbType.Integer)
 cmd.Parameters.Add("@IDDIEM", OleDbType.Integer)
 cmd.Parameters("@IDHOCSINH").Value =  IDHOCSINH
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Sql,Class_KieuDL.sqlExpress 
 strSQL = "Update DIEM Set IDHOCSINH = @IDHOCSINH  where IDDIEM= @IDDIEM"
 Dim cmd As New sqlCommand(strSQL, Ket_noi_sql)
 cmd.Parameters.Add("@IDHOCSINH", SqlDbType.Int)
 cmd.Parameters.Add("@IDDIEM", SqlDbType.Int)
 cmd.Parameters("@IDHOCSINH").Value =  IDHOCSINH
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.SqlCe
 strSQL = "Update DIEM Set IDHOCSINH =" & IDHOCSINH & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New SqlCeCommand(strSQL, Ket_noi_SqlCe)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Oracle
 strSQL = "Update DIEM Set IDHOCSINH =" & IDHOCSINH & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New OracleCommand(strSQL, Ket_noi_Oracle)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.MySql
 strSQL = "Update DIEM Set IDHOCSINH =" & IDHOCSINH & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New MySqlCommand(strSQL, Ket_noi_MySql)
 cmd.ExecuteNonQuery()
 End Select 
 Ngatketnoi()
 End Sub
 Public Sub SuaTONGDIEM( ByVal TONGDIEM as System.Int32, ByVal IDDIEM As System.Int32 )
 Dim strSQL As String
 Moketnoi()
 select case ketnoi.MSsql 
 Case Class_KieuDL.Access
 strSQL = "Update DIEM Set TONGDIEM = ?  where IDDIEM= ? "
 Dim cmd As New OleDbCommand(strSQL, Ket_noi_access)
 cmd.Parameters.Add("@TONGDIEM", OleDbType.Integer)
 cmd.Parameters.Add("@IDDIEM", OleDbType.Integer)
 cmd.Parameters("@TONGDIEM").Value =  TONGDIEM
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Sql,Class_KieuDL.sqlExpress 
 strSQL = "Update DIEM Set TONGDIEM = @TONGDIEM  where IDDIEM= @IDDIEM"
 Dim cmd As New sqlCommand(strSQL, Ket_noi_sql)
 cmd.Parameters.Add("@TONGDIEM", SqlDbType.Int)
 cmd.Parameters.Add("@IDDIEM", SqlDbType.Int)
 cmd.Parameters("@TONGDIEM").Value =  TONGDIEM
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.SqlCe
 strSQL = "Update DIEM Set TONGDIEM =" & TONGDIEM & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New SqlCeCommand(strSQL, Ket_noi_SqlCe)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Oracle
 strSQL = "Update DIEM Set TONGDIEM =" & TONGDIEM & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New OracleCommand(strSQL, Ket_noi_Oracle)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.MySql
 strSQL = "Update DIEM Set TONGDIEM =" & TONGDIEM & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New MySqlCommand(strSQL, Ket_noi_MySql)
 cmd.ExecuteNonQuery()
 End Select 
 Ngatketnoi()
 End Sub
 Public Sub SuaTRANGTHAI( ByVal TRANGTHAI as System.Int32, ByVal IDDIEM As System.Int32 )
 Dim strSQL As String
 Moketnoi()
 select case ketnoi.MSsql 
 Case Class_KieuDL.Access
 strSQL = "Update DIEM Set TRANGTHAI = ?  where IDDIEM= ? "
 Dim cmd As New OleDbCommand(strSQL, Ket_noi_access)
 cmd.Parameters.Add("@TRANGTHAI", OleDbType.Integer)
 cmd.Parameters.Add("@IDDIEM", OleDbType.Integer)
 cmd.Parameters("@TRANGTHAI").Value =  TRANGTHAI
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Sql,Class_KieuDL.sqlExpress 
 strSQL = "Update DIEM Set TRANGTHAI = @TRANGTHAI  where IDDIEM= @IDDIEM"
 Dim cmd As New sqlCommand(strSQL, Ket_noi_sql)
 cmd.Parameters.Add("@TRANGTHAI", SqlDbType.Int)
 cmd.Parameters.Add("@IDDIEM", SqlDbType.Int)
 cmd.Parameters("@TRANGTHAI").Value =  TRANGTHAI
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.SqlCe
 strSQL = "Update DIEM Set TRANGTHAI =" & TRANGTHAI & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New SqlCeCommand(strSQL, Ket_noi_SqlCe)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Oracle
 strSQL = "Update DIEM Set TRANGTHAI =" & TRANGTHAI & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New OracleCommand(strSQL, Ket_noi_Oracle)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.MySql
 strSQL = "Update DIEM Set TRANGTHAI =" & TRANGTHAI & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New MySqlCommand(strSQL, Ket_noi_MySql)
 cmd.ExecuteNonQuery()
 End Select 
 Ngatketnoi()
 End Sub
 Public Sub SuaGHICHU( ByVal GHICHU as System.Int32, ByVal IDDIEM As System.Int32 )
 Dim strSQL As String
 Moketnoi()
 select case ketnoi.MSsql 
 Case Class_KieuDL.Access
 strSQL = "Update DIEM Set GHICHU = ?  where IDDIEM= ? "
 Dim cmd As New OleDbCommand(strSQL, Ket_noi_access)
 cmd.Parameters.Add("@GHICHU", OleDbType.Integer)
 cmd.Parameters.Add("@IDDIEM", OleDbType.Integer)
 cmd.Parameters("@GHICHU").Value =  GHICHU
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Sql,Class_KieuDL.sqlExpress 
 strSQL = "Update DIEM Set GHICHU = @GHICHU  where IDDIEM= @IDDIEM"
 Dim cmd As New sqlCommand(strSQL, Ket_noi_sql)
 cmd.Parameters.Add("@GHICHU", SqlDbType.Int)
 cmd.Parameters.Add("@IDDIEM", SqlDbType.Int)
 cmd.Parameters("@GHICHU").Value =  GHICHU
cmd.Parameters("@IDDIEM").Value =  IDDIEM
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.SqlCe
 strSQL = "Update DIEM Set GHICHU =" & GHICHU & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New SqlCeCommand(strSQL, Ket_noi_SqlCe)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.Oracle
 strSQL = "Update DIEM Set GHICHU =" & GHICHU & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New OracleCommand(strSQL, Ket_noi_Oracle)
 cmd.ExecuteNonQuery()
 Case Class_KieuDL.MySql
 strSQL = "Update DIEM Set GHICHU =" & GHICHU & "  where IDDIEM=" & IDDIEM & ""
 Dim cmd As New MySqlCommand(strSQL, Ket_noi_MySql)
 cmd.ExecuteNonQuery()
 End Select 
 Ngatketnoi()
 End Sub
 Public Sub layBang()
 Chuoi_SQL = " Select * from DIEM
 Doc_bang()
 End Sub
 Public Sub layBangTheoIDDIEM(ByVal ARRAY1 As ArrayList)
 Dim DK As String = ""
 If ARRAY1.Count > 0 Then
 For I As Integer = 0 To ARRAY1.Count - 1
 DK = DK & IIf(DK <> "", " OR ", "") & "IDDIEM=" & ARRAY1.Item(i) & ""
 Next
 End If
 If DK <> "" Then DK = " WHERE " & DK 
 Chuoi_SQL = " Select * from DIEM" & DK
 Doc_bang()
 End Sub
 Public Sub layBangTheoIDDIEM(ByVal IDDIEM As System.Int32 )
 Chuoi_SQL = " Select * from DIEM where  IDDIEM = " & IDDIEM & ""
 Doc_bang()
 End Sub
 Public Sub XOABangTheoIDDIEM(ByVal IDDIEM As System.Int32)
 Dim strsql As String
 strSQL = "Delete From DIEM Where IDDIEM=" & IDDIEM & ""
 Thuc_hien_lenh(strsql)
 End Sub
 Public Sub layBangTheoIDMON(ByVal ARRAY1 As ArrayList)
 Dim DK As String = ""
 If ARRAY1.Count > 0 Then
 For I As Integer = 0 To ARRAY1.Count - 1
 DK = DK & IIf(DK <> "", " OR ", "") & "IDMON=" & ARRAY1.Item(i) & ""
 Next
 End If
 If DK <> "" Then DK = " WHERE " & DK 
 Chuoi_SQL = " Select * from DIEM" & DK
 Doc_bang()
 End Sub
 Public Sub layBangTheoIDMON(ByVal IDMON As System.Int32 )
 Chuoi_SQL = " Select * from DIEM where  IDMON = " & IDMON & ""
 Doc_bang()
 End Sub
 Public Sub XOABangTheoIDMON(ByVal IDMON As System.Int32)
 Dim strsql As String
 strSQL = "Delete From DIEM Where IDMON=" & IDMON & ""
 Thuc_hien_lenh(strsql)
 End Sub
 Public Sub layBangTheoIDHOCSINH(ByVal ARRAY1 As ArrayList)
 Dim DK As String = ""
 If ARRAY1.Count > 0 Then
 For I As Integer = 0 To ARRAY1.Count - 1
 DK = DK & IIf(DK <> "", " OR ", "") & "IDHOCSINH=" & ARRAY1.Item(i) & ""
 Next
 End If
 If DK <> "" Then DK = " WHERE " & DK 
 Chuoi_SQL = " Select * from DIEM" & DK
 Doc_bang()
 End Sub
 Public Sub layBangTheoIDHOCSINH(ByVal IDHOCSINH As System.Int32 )
 Chuoi_SQL = " Select * from DIEM where  IDHOCSINH = " & IDHOCSINH & ""
 Doc_bang()
 End Sub
 Public Sub XOABangTheoIDHOCSINH(ByVal IDHOCSINH As System.Int32)
 Dim strsql As String
 strSQL = "Delete From DIEM Where IDHOCSINH=" & IDHOCSINH & ""
 Thuc_hien_lenh(strsql)
 End Sub
 Public Sub layBangTheoTONGDIEM(ByVal ARRAY1 As ArrayList)
 Dim DK As String = ""
 If ARRAY1.Count > 0 Then
 For I As Integer = 0 To ARRAY1.Count - 1
 DK = DK & IIf(DK <> "", " OR ", "") & "TONGDIEM=" & ARRAY1.Item(i) & ""
 Next
 End If
 If DK <> "" Then DK = " WHERE " & DK 
 Chuoi_SQL = " Select * from DIEM" & DK
 Doc_bang()
 End Sub
 Public Sub layBangTheoTONGDIEM(ByVal TONGDIEM As System.Int32 )
 Chuoi_SQL = " Select * from DIEM where  TONGDIEM = " & TONGDIEM & ""
 Doc_bang()
 End Sub
 Public Sub XOABangTheoTONGDIEM(ByVal TONGDIEM As System.Int32)
 Dim strsql As String
 strSQL = "Delete From DIEM Where TONGDIEM=" & TONGDIEM & ""
 Thuc_hien_lenh(strsql)
 End Sub
 Public Sub layBangTheoTRANGTHAI(ByVal ARRAY1 As ArrayList)
 Dim DK As String = ""
 If ARRAY1.Count > 0 Then
 For I As Integer = 0 To ARRAY1.Count - 1
 DK = DK & IIf(DK <> "", " OR ", "") & "TRANGTHAI=" & ARRAY1.Item(i) & ""
 Next
 End If
 If DK <> "" Then DK = " WHERE " & DK 
 Chuoi_SQL = " Select * from DIEM" & DK
 Doc_bang()
 End Sub
 Public Sub layBangTheoTRANGTHAI(ByVal TRANGTHAI As System.Int32 )
 Chuoi_SQL = " Select * from DIEM where  TRANGTHAI = " & TRANGTHAI & ""
 Doc_bang()
 End Sub
 Public Sub XOABangTheoTRANGTHAI(ByVal TRANGTHAI As System.Int32)
 Dim strsql As String
 strSQL = "Delete From DIEM Where TRANGTHAI=" & TRANGTHAI & ""
 Thuc_hien_lenh(strsql)
 End Sub
 Public Sub layBangTheoGHICHU(ByVal ARRAY1 As ArrayList)
 Dim DK As String = ""
 If ARRAY1.Count > 0 Then
 For I As Integer = 0 To ARRAY1.Count - 1
 DK = DK & IIf(DK <> "", " OR ", "") & "GHICHU=" & ARRAY1.Item(i) & ""
 Next
 End If
 If DK <> "" Then DK = " WHERE " & DK 
 Chuoi_SQL = " Select * from DIEM" & DK
 Doc_bang()
 End Sub
 Public Sub layBangTheoGHICHU(ByVal GHICHU As System.Int32 )
 Chuoi_SQL = " Select * from DIEM where  GHICHU = " & GHICHU & ""
 Doc_bang()
 End Sub
 Public Sub XOABangTheoGHICHU(ByVal GHICHU As System.Int32)
 Dim strsql As String
 strSQL = "Delete From DIEM Where GHICHU=" & GHICHU & ""
 Thuc_hien_lenh(strsql)
 End Sub
 Public Sub layBangNhieuTable
 Chuoi_SQL = " Select IDDIEM ,IDMON ,IDHOCSINH ,TONGDIEM ,TRANGTHAI ,GHICHU  from DIEM"
 Doc_bang()
 End sub
Public Sub TaoTable()
Dim strsql As String
strsql = ""
Select Case ketnoi.MsSql
Case Class_KieuDL.Access 
Case Class_KieuDL.Sql, Class_KieuDL.sqlExpress
strsql = ""
Case Class_KieuDL.SqlCe
strsql = ""
Case Class_KieuDL.Oracle
strsql = ""
Case else 
strsql = ""
End Select
Thuc_hien_lenh(strsql)
End Sub
 End Class

